home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW etc / MPW-GM / MPW / Scripts / DirectoryMenu < prev    next >
Encoding:
Text File  |  1995-04-21  |  1.5 KB  |  54 lines  |  [TEXT/MPS ]
  1. #    DirectoryMenu - create the Directory menu
  2. #
  3. #    Usage:
  4. #        DirectoryMenu directory…
  5. #
  6. #    DirectoryMenu creates the menu shown below. The directory… parameter
  7. #    specifies the initial list of directories that appear in the menu.
  8. #
  9. #        Directory
  10. #
  11. #          Show Directory
  12. #          Set Directory…
  13. #          ----------------
  14. #          <directory…>
  15. #
  16. #    
  17. #    Copyright Apple Computer, Inc. 1987 - 1990, 1992 - 1993, 1995
  18. #    All rights reserved.
  19.  
  20. Set Echo 0
  21. Set Exit 0
  22. DeleteMenu Directory ≥ Dev:Null
  23. AddMenu Directory 'Show Directory' ∂
  24.     '(Echo "The default directory is ∂n"; Directory) | Alert -s'
  25. AddMenu directory 'Set Directory…' ∂
  26.     'set __OldExit__ "{exit}"; ∂
  27.     unset exit; ∂
  28.     Set __Directory__ "`GetFileName -d;  set __tmpStatus__ "{status}"`"; ∂
  29.     if "{__tmpStatus__}" == 0; ∂
  30.         SetDirectory {__Directory__} > "{ShellDirectory}"MPW.Errors ≥ Dev:StdOut; ∂
  31.         if "{status}" != 0; ∂
  32.             Alert < "{ShellDirectory}"MPW.Errors; ∂
  33.         end; ∂
  34.     end; ∂
  35.     set exit "{__OldExit__}"; ∂
  36.     unset __Directory__ __OldExit__ __tmpStatus__'
  37. AddMenu Directory '(-' ''
  38. For directory in {"Parameters"}
  39.     Set directory "`Files -i -fr -q "{directory}" ≥ Dev:Null || Echo "{directory}"`"
  40.  
  41.     if !`Evaluate "{directory}" =~ /?«0,64»/`  # longer that 64 bytes?
  42.         Unset ®1 ; Unset ®2
  43.         (Evaluate "{directory}" =~ /(?«30»)®1≈(?«33»)®2/ ) ∑ dev:null
  44.         Set menuname    "{®1}"'…'"{®2}"
  45.     else
  46.         Set menuname "{directory}"
  47.     end
  48.  
  49.     AddMenu -asis Directory "{menuname}" ∂
  50.         'Directory "'"{directory}"'" > "{ShellDirectory}"MPW.Errors ≥ Dev:StdOut ∂
  51.           || Alert < "{ShellDirectory}"MPW.Errors'
  52. End
  53. Exit 0
  54.